home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / e / easy_patch / easypatchv1.25a.lha / EasyPatch125a / Configuration / Config next >
Encoding:
Text File  |  1997-04-08  |  5.6 KB  |  296 lines
  1. ;EasyPatch Configuration script
  2. ;$VER: EasyConfigScript 1.22 
  3.  
  4.  
  5.  
  6. (set @default-dest "")
  7.  
  8. (set ver (/ @installer-version 65536))
  9. (set rev (- @installer-version (* ver 65536)))
  10.  
  11. ;/// ***** English
  12.  
  13.  
  14. (set #Welcome        "Welcome to EasyConfig\nPrepare your requesters to be destroyed!")
  15.  
  16. (set #wrongOS          "EasyPatch needs at least OS2.04 to run\n")
  17.  
  18. (set #MatchPrompt   "Please enter a pattern that matches\n \"%s\"\n")
  19.  
  20. (set #EPNotInstalled "Please run EasyPatch 1.2x before that script.")
  21.  
  22. (set #EPTooOld       "EasyPatch 1.2x is required for this script to work.")
  23.  
  24. (set #TooManyReqs    "Too many requesters on screen!\nPlease leave only one!")
  25.  
  26. (set #NoRequesters   "I cannot see any requester!\nPlease open one!")
  27.  
  28. (set #PattNoMatch    "Sorry, but \"%s\" doesn't match \"%s\".")
  29.  
  30. (set #GadsPrompt     "Please enter one of these gadgets:\n%s")
  31.  
  32. (set #UnknownGadget  "Unknown gadget \"%s\".")
  33.  
  34. (set #AskCfgPrompt   "Please select your EasyPatch configuration file.\nIf you don't have one simply click Continue.") 
  35.  
  36. (set #CreateCfg         "Creating config file....");
  37.  
  38. ;/// ***** Italiano
  39.  
  40. (IF (= @language "italiano")
  41. (
  42.  
  43. (set #Welcome        "Benvenuto in EasyConfig\nPrepara i tuoi requesters ad essere distrutti!")
  44.  
  45. (set #wrongOS          "EasyPatch necessita del Sistema Operativo 2.04\n per funzionare.\n")
  46.  
  47. (set #MatchPrompt    "Inserisci un pattern che corrisponda a\n \"%s\"\n")
  48.  
  49. (set #EPNotInstalled "Per piacere, lancia EasyPatch 1.2x prima di questo script.")
  50.  
  51. (set #EPTooOld       "Quest script richiede EasyPatch 1.2x per funzionare.")
  52.  
  53. (set #TooManyReqs    "Ci sono troppi requesters sullo schermo!\nLasciane uno solo!")
  54.  
  55. (set #NoRequesters   "Non vedo nessun requester!\nO sono miope o รจ meglio che tu ne apra uno :-)!")
  56.  
  57. (set #PattNoMatch    "Sorry, but \"%s\" doesn't match \"%s\".")
  58.  
  59. (set #GadsPrompt     "Per piacere, inserici uno di questi gadgets:\n%s")
  60.  
  61. (set #UnknownGadget  "Gadget sconosciuto: \"%s\".")
  62.  
  63. (set #AskCfgPrompt   "Per piacere, seleziona il file di configurazione di EasyPatch.\nSe non ne hai uno, premi su Procedi.") 
  64.  
  65. (set #CreateCfg         "Sto creando il file di configurazione....");
  66.  
  67. )
  68. )
  69.  
  70.  
  71.  
  72.  
  73. ;----------------------------------------------------------------------------
  74.  
  75. ;/// Checking environment
  76. (set OS_ver (getversion "exec.library" (resident)))
  77. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  78.  
  79.  
  80. ;----------------------------------------------------------------------------
  81.  
  82.  
  83. (complete 0)
  84.  
  85. (message #Welcome)
  86.  
  87. (debug "EasyConfig - Start")
  88.  
  89.  
  90.  
  91. (set #Rc 1)
  92.  
  93. (complete 1)
  94.  
  95. (until (= #Rc 0)
  96. (
  97.     (set #Rc (run "EasyConfig"))
  98.     
  99.     (debug (cat "EasyConfig: " #Rc))
  100.  
  101.     (if (= #Rc 1)
  102.         (abort #EPNotInstalled)
  103.     )
  104.     (if (= #Rc 2)
  105.         (abort #EPTooOld)
  106.     )
  107.     (if (= #Rc 3)
  108.         (message #TooManyReqs)
  109.     )
  110.     (if (= #Rc 4)
  111.         (message #NoRequesters)
  112.     )
  113. )
  114. )
  115.  
  116. (complete 10)
  117.  
  118. (onerror ((if (AND (>= ver 42) (>= rev 9))
  119. (
  120.     (delete "ENV:EasyPatch_#?" )
  121.     (delete "T:EasyPatch.cfg")
  122. )
  123. ;else
  124.     (run "Delete >NIL: ENV:EasyPatch_#? T:EasyPatch.cfg")
  125. )
  126.  
  127. ))
  128.  
  129. (complete 15)
  130.  
  131. (set #ReqTitleEnv (getenv "EasyPatch_ReqTitle"  ))
  132. (set #ReqTextEnv  (getenv "EasyPatch_ReqText"   ))
  133. (set #ReqGadsEnv  (getenv "EasyPatch_ReqGadgets"))
  134.  
  135. ;Strip \0
  136.  
  137. (set #ReqTitle (substr #ReqTitleEnv  0 (strlen #ReqTitleEnv)))
  138. (set #ReqText  (substr #ReqTextEnv   0 (strlen #ReqTextEnv )))
  139. (set #ReqGads  (substr #ReqGadsEnv   0 (strlen #ReqGadsEnv )))
  140.  
  141. (set #Go 0)
  142.  
  143.  
  144. (complete 20)
  145.  
  146.  
  147. (if (= #ReqGadsEnv "")
  148. (
  149.     (set #ReqGadPosEnv (getenv "EasyPatch_ReqPos"))
  150.     (set #ReqGadNegEnv (getenv "EasyPatch_ReqNeg"))
  151.  
  152.     (set #ReqGadPos  (substr #ReqGadPosEnv   0 (strlen #ReqGadPosEnv )))
  153.     (set #ReqGadNeg  (substr #ReqGadNegEnv   0 (strlen #ReqGadNegEnv )))
  154.     
  155.     (complete 25)
  156.  
  157.     (set #ReqGads (cat #ReqGadPos "|" #ReqGadNeg))
  158.  
  159.     (set #ReqGadDef #ReqGadPos)
  160. )
  161. ;else
  162. (set #ReqGadDef "")
  163. )
  164.  
  165.  
  166. (complete 30)
  167.  
  168. (until (= #Go 1)
  169. (
  170.     (set #MatchTitle
  171.         (askstring
  172.             (prompt (#MatchPrompt #ReqTitle))
  173.             (default (cat "#?" (substr #ReqTitle 0 15) "#?"))
  174.             (help @askstring-help)
  175.         )
  176.     )
  177.     
  178.     (complete 35)
  179.  
  180.     (if (= (patmatch #MatchTitle #ReqTitle) 0)
  181.         (message (#PattNoMatch #MatchTitle #ReqTitle))
  182.         (set #Go 1)
  183.     )
  184. )
  185. )
  186.  
  187. (complete 40)
  188.  
  189. (set #Go 0)
  190.  
  191. (until (= #Go 1)
  192. (
  193.     (set #MatchText
  194.         (askstring
  195.             (prompt (#MatchPrompt #ReqText))
  196.             (default (cat "#?" (substr #ReqText 0 15) "#?"))
  197.             (help @askstring-help)
  198.         )
  199.     )
  200.  
  201.     (complete 45)
  202.  
  203.     (if (= (patmatch #MatchText #ReqText) 0)
  204.         (message (#PattNoMatch #MatchText #ReqText))
  205.         (set #Go 1)
  206.     )
  207. )
  208. )
  209.  
  210. (complete 60)
  211.  
  212. (set #Go 0)
  213.  
  214. (until (= #Go 1)
  215. (
  216.     (set #Gadget
  217.         (askstring
  218.             (prompt (#GadsPrompt #ReqGads))
  219.             (default #ReqGadDef)
  220.             (help @askstring-help)
  221.         )
  222.     )
  223.  
  224.     (complete 65)
  225.  
  226.     (if (= (patmatch (cat "(" #ReqGads ")" ) #Gadget) 0)
  227.         (message (#UnknownGadget #Gadget))
  228.         (set #Go 1)
  229.     )
  230. )
  231. )
  232.  
  233. (complete 70)
  234.  
  235. (if (not (exists "S:EasyPatch.List"))
  236. (
  237.     (set #CfgFile
  238.         (askfile
  239.             (prompt #AskCfgPrompt)
  240.             (help @askfile-help)
  241.             (default "S:EasyPatch.List")
  242.         )
  243.     )
  244.  
  245.     (complete 75)
  246.  
  247.     (if (= (fileonly #CfgFile) "")
  248.         (set #CfgFile "S:EasyPatch.List")
  249.     )
  250.  
  251. )
  252. ;else
  253.     (set #CfgFile "S:EasyPatch.List")
  254. )
  255.  
  256. (complete 80)
  257.  
  258. (debug "Config file: " #CfgFile)
  259.  
  260. (textfile
  261.     (prompt  #CreateCfg)
  262.     (dest      "T:EasyPatch.cfg")
  263.     (include #CfgFile)
  264.     (append  (cat "\""#MatchTitle"\" " "\""#MatchText"\" AT PRESSGAD=\""#Gadget"\"\n"))
  265. )
  266.  
  267. (complete 90)
  268.  
  269. (copyfiles 
  270.     (prompt  #CreateCfg)
  271.     (source  "T:EasyPatch.cfg")
  272.     (dest    (pathonly #CfgFile))
  273.     (newname (fileonly #CfgFile))
  274. )
  275.  
  276. (debug "Pattern for Title:" #MatchTitle)
  277. (debug "Pattern for Text :" #MatchText )
  278. (debug "Selected gadget  :" #Gadget    )
  279.  
  280. (complete 95)
  281.  
  282. (if (AND (>= ver 42) (>= rev 9))
  283. (
  284.     (delete "ENV:EasyPatch_#?" )
  285.     (delete "T:EasyPatch.cfg")
  286. )
  287. ;else
  288.     (run "Delete >NIL: ENV:EasyPatch_#? T:EasyPatch.cfg")
  289. )
  290.  
  291. (complete 100)
  292.  
  293. (debug "EasyConfig - End")
  294.  
  295. (exit (QUIET))
  296.